From 3c280f4819466cbd830d703b6a63cfb21bcf6165 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 18 May 1993 19:21:13 +0000 Subject: [PATCH] (mail-yank-original): In Transient Mark mode, don't get error and don't activate the mark. --- lisp/mail/sendmail.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index bfb02c44a1b..94f6046b44f 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -565,16 +565,20 @@ and don't delete any header fields." (insert-buffer mail-reply-buffer) (if (consp arg) nil - (mail-yank-clear-headers start (mark)) + (mail-yank-clear-headers start (mark t)) (if (null mail-yank-prefix) - (indent-rigidly start (mark) + (indent-rigidly start (mark t) (if arg (prefix-numeric-value arg) 3)) (save-excursion (goto-char start) - (while (< (point) (mark)) + (while (< (point) (mark t)) (insert mail-yank-prefix) (forward-line 1))))) - (exchange-point-and-mark) + ;; This is like exchange-point-and-mark, but doesn't activate the mark. + ;; It is cleaner to avoid activation, even though the command + ;; loop would deactivate the mark because we inserted text. + (goto-char (prog1 (mark t) + (set-marker (mark-marker) (point) (current-buffer)))) (if (not (eolp)) (insert ?\n))))) (defun mail-yank-clear-headers (start end) -- 2.30.2